(display
 (simple-format
  #f "~a\n"
  (dirname (current-filename))))
